N11 


LLLLLLLLLLLLLLL 
LLELELLLLLLLLLLL 
LLLELLLLLLLLLLL 


ba 
fe be be 


Ot Ot On Os be be Bas be be Dame be bs bs De Os Ds De bn be bs 
os 


1 onl ane 
oa be ee 
be bs bao 
be be 


N 15 
**FILE**1D®*OBJFMT 


000000 BBBBBBBB JJ FRFFFFFFFF MM MM TTTTTTTTIT 
000000 BBBBBBBB JJ FFFFFFFFFF MM MM TTTTTTITTT 

00 00 88 BB JJ FF MMMM MMMM TT 

00 0O 68 BB JJ FF MMMM MMMM TT 

00 00 88 BB JJ FF MM MM OMM TT 

00 00 88 BB JJ FF MM MM OMM TT 

00 00 88888888 JJ FRFFFFFF MM TT 

00 00 JJ FFFFFFFF MM MM TT 

00 00 88 BB JJ JJ FF MM MM TT 

00 0O 88 BB JJ JJ FF MM MM TT 

00 00 6B BB JJ JJ FF MM MM TT cece 

00 00 88 BB JJ JJ FF MM MM TT cece 
000000 BBBBBBBB JJJJuJ FF MM MM TT eee 
000000 BBBBBBBB JJJJJJ FF MM MM TT eee 


SSSSSSSS DDDDDDDD LL 
SSSSSSSS > teense > LL 


SS DD LL 
SS DD DD LL 
SS DD DD LL 
SS DD DD LL 
SSSSSS DD DD LL 
SSSSSS DD DD LL 
SS 0D DD LL 
SS DD DD LL 
SS DD DD LL 

SS 0D D 


D LL 
SSSSSSSS DDDDDDDD LLLLLLLLLL 
SSS DDDDDDDD LLLLLLLLLL 


STON 2 BK Kee TO V*NOOOZ BO KCK TO VNC OO ZB KC He TO VWMOOOZ BO KC He TO NOCD 
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Version: *v04-000' 


ARPA RSASASARALAAALAL ESE E ASE ES ERE SERS ESSERE SESE E CEST CC See eT cece ccc aaa | 


COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


* ® 
* + 
i ® 
+ * 
® ® 
* THIS SOFTWARE ss FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH hats AND WITH rial * 
* INCLUSION OF THE ABOVE gdh NOT Ice, THIS SOFTWARE OR ANY OTHER * 
* COPIES THEREOF sl NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. . 
* ® 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
* CORPORATION. * 
® ® 
* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 
* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
® ® 
* ® 
i *® 


Pee eT SPST T TTT TPT r Ptr iit iii iii titi iit ii iii iii iiiii iti it 
MODIFIED BY: 


v03-005 JwT0113 Jim Teague 27-Apr-1983 
Another new type for the Linker Options Record, 
LNKSC_SHA, for individually specified shr imgs. 


v03-004 ywT0102 Jim T ony 16-Mar-1983 
Add a new type to the Linker Options Record, LNK$C_OBJ. 


v03-003 JwT0082 Jim Teague 20-Dec-1982 
Add V_NESTED to environment flags to clear up the 
ambiguity of parent environment zero. 


v03-002 ACG0303 Andrew C. Goldstein, 9=-Dec-1982 16:02 
Add FILL attribute to extraneous field names 


v03-001 W10037 Jim Teague 18-Jun-1982 
Add spec gf Linker options record (LNK) 


v02-008 BLS0096 Benn Schreiber 31-Oct-1981 
Add shareable image psect type SGPS 


v02-007 BLS0094 Benn Schreiber 31-Oct-1981 
Add STA_LEPM 


v02-006 BLS0084 Benn Schreiber 21-Sep-1981 
Make IDC IDMATCH 2 bits, add ERRSEV 


v02-005 BLS0062 Benn Schreiber 28-Jul-1981 
Correct local symbol definition 


FAA AAAAAAAAAAAADAAAAAAAAAARAAR AAAAAAAN 
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v02-004 BLS0045 
Correct store repeated | 


v02-003 BLS0037 Benn Schreiber 29-Jan-1981 
Add rest of new object Language commands: local symbols, 
end of module word psect. 


v02-002 BLS0033 Benn Schreiber 5-Jan-1981 
Add new definitions for more psects, add Literal operators, 
and ident check. 


oe Schreiber 14-Mar-1981 
m 


t to be longword 


v02-001 Benn Schreiber 11-Sep-1980 


BLS0011 
Implement TIRSC_CTL_STKDL to stack debug location. 
{ 
: Definition file for the VAX/VMS object Language 
module SCBJRECDEF; 


aggregate OBJRECDEF structure prefix OBJ$; 


YP byte unsigned; /*First byte always record type 


/*Permissable record types 


constant HDR equals 0 prefix OBJ tag $C; /*Module header record 

constant HDR_MHD equals 0 prefix OBJ tag $C; /* Main header record 

constant HDR_LNM equals 1 prefix OBJ tag $C; /* Language processor record 

constant HDR_SRC equals § prefix OBJ tag $C; /* Source files description 

constant HDR_TTL equals prefix OBJ tag $C; /* Title text 

constant HDR_CPR equals 4 prefix OBJ tag $C; /* Copyright text 

constant HDR_MTC equals 5 prefix OBJ tag $C; /* Maintenance text 

constant HDR_GTX equals 6 prefix OBJ tag $C; /* General text 

constant GSD equals 1 prefix OBJ tag $C; /*Global symbol definition record 
constant GSD_PSC equals 0 prefix OBJ tag $C; /* P-sect definition 

constant GSD_SYM equals 1 prefix OBJ tag SC; /* Symbol (simple) definition 

constant GSD_EPM equals ¢ prefix OBJ tag $C; /* Entry point definition 

constant GSD_PRO equals prefix OBJ tag $C; /* Procedure definition 

constant GSD_SYMW equals 4 prefix OBJ tag $C; /* Symbol definition with word psect 
constant GSD_EPMW equals 5 prefix OBJ tag $C; /* Entry point definition with word psect 
constant GSD_PROW equals § prefix OBJ tag $C; /* Procedure definition with word psect 
constant GSD_IDC equals prefix OBJ tag $C; /* Random entity check 

constant GSD_ENV equals 8 prefix OBJ tag $C; /* Environment definition 

constant GSD_LSY equals prefix OBJ tag SC; /* Local symbol definition/reference 
constant GSD_LEPM equals 19 prefix OBJ tag $¢;  /* Local symbol entry point def. 
constant GSD_LPRO equais 11 prefix OBJ tag $C; /* Local symbol procedure def. 
constant GSD_SPSC equals 12 prefix OBJ tag $C; /* Shareable image psect definition 
constant Tl equals § prefix OBJ tag $C; /*Text information record 

constant EOM equals prefix OBJ tag $C; /tEnd of module record 

constant DBG equals 4 prefix OBJ tag $C; Pk oe td information record 

constant TBT equals 5 prefix OBJ tag $C; /*Traceback information record 
constant LNK equals 8 prefix OBJ tag $C; /tLinker options record 

constant EOMW equals prefix OBJ tag $C; /*End of module record with word psect 
constant MAXRECTYP equals 7 prefix OBJ tag $C; /tLast assigned record type 

constant SUBTYP equals . prefix OBJ$ tag K; 


constan 


K 
SUBTYP equals . prefix OBJ$ tag C; 


tant 
SUBTYP byte unsigned; 


/*Record sub-type byte 
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constant MAXRECSIZ 
constant STRLV 
constant SYMSI 
constant STOR 


C 
end MHD _RECSZ FIELDS; 
end MHD_RECSZ_OVERLAY; 


end OBJRECDEF; 
end module SOBJRECDEF; 
module SMHDEF ; 


/* 
An Module header record (MHD) 
® 


aggregate 
~ RECTY 


/* 
/t 


te unsigned; 
ERLAY union fill; 
; word ge bh ae 


ture fill; 


l 
mension 2 itl 


equals 


prefix 
prefix 
prefix 
prefix 
prefix 
prefix 
prefix 


MHDEF structure prefix MHDS; 

P byte unsigned; 
HDRTYP byte unsigned; 
constant MHD equals 
constant LNM equals 
constant SRC equals 
constant TTL equals 
constant CPR equals 
constant MTC equals 
constant GTX equals 
constant MAXHDRTYP equals 


STRLVL byte unsigned; 
RECSIZ word unsigned; 
NAMLNG byte unsigned; 
NAME character Length 31; 


/t 

end MHDEF; 
end_module SMHDEF ; 
module SEOMDEF ; 


/* 
i End of module record (E0M) 


AOouUsfwn—o 


prefix 


aggregate EOMDEF structure prefix EOM$; 


® 
048 prefix OBJ ta 
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/*Structure level 
/*Maximum record size 


prefix OBJRECDEF tag $$; 
tag T; /*Module name field 
/ sc. constants 


/*Record yee (OBJ$C_MHD) 
/*Type field for MHD 
/tTypes of header records 


MHD tag $C; /*Main header record 

MHD tag $C; /*tLanguage name and version 
MHD tag $C; /*Source file specification 
MHD tag $C; /*Title text of module 

MHD tag $C; /*Copyright notice 

MHD tag $C; /*Maintenence status 

MHD tag $C; /*General text 

MHD tag $C; /*Maximum allowable type 


/*Structure level 
/*Maximum record size 
/*Module name Length 
/*Module name 
/*Module version (ASCIC) 
/*Creation date/time (17 bytes) 
/*Time of last patch (17 bytes) 


Mi 
. ee Legal record size 
1 pretix OBJ tag $¢;/*Maximum symbol Length 
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RECTYP byte unsigned; 
COMCOD byte unsigned; 


constant SUCCESS equals prefix EOM t 
constant WARNING equals prefix EOM t 
constant ERROR equals prefix EOM t 
constant ABORT equals prefix EOMt 
constant EOMMIN equals . prefix EOM$ tag K; 
constant EOMMIN equals . prefix EOM$ tag C 
PSINDX byte unsigned; 
TFRADR sneer? unsigned; 
constant EOMMX1 equals . prefix EOM$ tag K; 
constant EOMMX1 oquete - prefix EOMS$ tag C; 
TFRFLG_OVERLAY union fill; 

TFRFLG byte unsigned; 

constant EOMMAX equals . prefix EOMS tag K; 

constant EOMMAX equals . Pgh EOMS tag C; 

TFRFLG_BITS structure fill; 

WKTFR b eld mask; 

end TFRFLG BITS; 

end TFRFLG_OVERLAY; 
end EOMDEF; 


end_module SEOMDEF ; 
gedute SEOMWDEF ; 
End of module record with word of psect (EOMW) 


overegete EOMWDEF structure prefix EOMWS; 
RECTYP byte unsigned; 
COMCOD byte unsigned; 
constant EOMMIN equals - prefix EOMWS tag K; 
constant EOMMIN equals . prefix EOMWS tag C; 
PSINDX word unsigned; 
TFRADR Longword ona at 
constant EOMMX1 equals . prefix EOMW$ tag K; 
constant EOMMX1 equate - prefix EOMWS tag C; 
TFRFLG OVERLAY union fill; 
TFRFLG byte unsigned; 
constant EOMMAX equals . prefix EOMWS tag K; 
constant EOMMAX equals . ererye EOMWS tag C; 
TFRFLG_BITS structure fill; 
WKTFR bitfield mask; 
end TFRFLG BITS; 
end TFRFLG_OVERLAY; 
end EOMWDEF ; 
end_module SEOMWDEF ; 


module SLNKDEF; 


/*t 
/* Linker Options Record (LNK) 
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/*Record type (OBJ$C_EOM) 

/*Compiler completion code 

/*Values 

/*Successful (no errors) 

/tWarnings issue 

/tErrors detected 

/*Abort the Link 

/*Min Length of EOM record 

/*Min Length of EOM record 

/*P-sect of transfer address 

/*Transfer address 

/*Length of EOM record w/o transfer flags 
/*Length of EOM record w/o transfer flags 


/*Transfer address thos 
/*Maximum Length of EOM record 
/*Maximum Length of EOM record 


/*Transfer address is weak 


/*Record type (OBJ$C_EOM) 

/*Compiler completion code 

/*Min Length of EOM record 

/*Min length of EOM record 

/*P-sect of transfer address 

/*Transfer address 

/*Length of EOMW record w/o transfer flags 
/*Length of EOMW record w/o transfer flags 


/*Transfer address fleas 
/*Maximum Length of EOMW record 
/*Maximum Length of EOMW record 


/*Transfer address is weak 
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/* 


aggregate LNKDEF structure prefix LNK$; 
LNKTYP byte unsigned; 


constant OLB equals 0 prefix 
constant SHR equals 1 prefix 
constant OL! equals ¢ prefix 
constant OBJ equals prefix 
constant SHA equals 4 prefix 
constant MAXRECTYP equals 4 prefix 


FLAGS OVERLAY union fill; 
FLAGS word unsigned; 
FLAGS BITS structure fill; 
SELSER bitfield mask; 
LIBSRCH bitfield mask; 


end FLAGS 
end FLAGS OVERLAY: 
NAMLNG OVERLAY union fill; 
LNG word unsigned; 
NAMLNG FIELDS structure fill; 


end NAMLNG FIELDS; 
end NAMLNG_OVERLAY; 
end LNKDEF; 
end_module SLNKDEF; 


module S$GSDEF; 


/* 
A Global symbol definition record (GSD) 


aggregate GSDEF structure prefix GSD$; 
RECTYP byte unsigned; 


constant equals prefix 
constant SYM equals prefix 
constant EPM equals prefix 
constant PRO equals prefix 
constant SYMW equals 4 prefix 
constant EPMW equals 5 prefix 
constant PROW equals § prefix 
constant IDC equals prefix 
constant ENV equals 8 prefix 
constant LSY equals fix 
constant LEPM equals 1 

constant LPRO equals 1 


FICL_1 byte dimension 2 fill p 


refix LNKDEF tag $$ 
NAME character length 0 tag T; /* 


constant ENTRIES equals - prefix GSD$ tag 3 


oO 
PAPAAAARAARAAM 
POAIAAAAAO 


sad 


CPR oe Se Be Be Se Be Be Be Se Be 


pre GSD t 
0 prefix GSD 
1 prefix GSD tag $C 


Fi 
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* record type LNK 

* sub record type 
/* object Library sgt 

* shareable image library spec 

* object Library with inclusion List 
/* object file or symbol table file 

* individually specified shr img 

* highest current record type 


/* selectively searched (LNK$C_OBJ) 


/* Length of filespec name 


actual name 


/*Record type (OBJ$C_GSD) 

/*Offset to first entry in record 
/*Offset to first entry in record 
/*Type of entry (first byte of entry) 
/*Psect definition 

/*Symbol specification 

/tEntry point and mask definition 
/*Procedure with formal arguments 
/*Symbol specification with word geect 
/*Entry point mask with word psec 
/*Procedure with vord psect 

/*Random entity check 

/*Define environment 

/tLocal symbol ‘ 
/tLocal symbol entry point definition 
/*tLocal symbol procedure definition 
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end GSDEF; 
end_module SGSDEF; 
module SGPSDEF ; 


aggregate, GPSDEF structure 
P_ OVERLAY union fi 
BTYP byte une toned: 


FILL { e 
end GSOTYP_FIELDS; 
end GSDTYP_OV ERLAY, 
ALIGN OVER “uns ign 
ri 0 —— Mo pon fill; 
S word unsigne 


ALLOC Longword —— 
NAMLNG byte unsigne 


NAME character length 3 
end GPSDEF ; 
end_module SGPSDEF; 
gotta SSGPSDEF ; 


eperepste 58 SGPSDEF yt ag 
OVERLAY union 
SDTYP byte unsign 


constant SPSC equals 1 
constant MAXRECTYP equals 1 


/* 
GSD entry = P-section definition 


S 
GSDTYP_FIELDS structure fil 
START character lengt 


tae BITS strurture fill; 


PIC bitfield 

LIB bitfield mask; 

OVR bitfield mask; 
REL bitfield mask; 
GBL bitfield mask; 
SHR bitfield mask; 
EXE bitfield mask 
RD bitfield mask 
WRT bitfield mask; 

VEC bitfield mask; 


constant NAME equals . prefix GPS$ tag K; 
constant NAME equals . gee GPS$ tag C; 


GS Ba. os; 
GSDTYP_FIELDS structure fill; 
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GSD tag $C; 
GSD tag $C; 


= GPS$ origin FILL_1; 


E281 bag $$; 


4 GSD entry - P-section definition in shareable image 


A Pein SGPS$ origin FILL_1; 


/*Shareable image psect wb gat 


/*Maximum entry type define 


/*Typ field 


/*P-sect alignment 
/*P-sect flags 


/*Position independent 

/*> rom a shareable image 
/*Overlaid memory allocation 
/*Relocatable 

/*Global scope 

/*Shareable 

/*Executable 

/*Readable 

/tWriteable 

/*Vector psect 


/tLength of this contribution 
/tLength of p-sect name 


/*Name field 


/*Typ field 
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Hy A Esorve 
FLAGS 5 OVERLA 


2 


BASE Longw 


NAME chara 
end SGPSDEF; 


- GSD entry - 


ae 
/* point defin 
/* 

DTYP_OVE 


end ecorve 


end 
end FLAGS OVERLAY; 
ALLOC Longword unsigned; 


sseregate GSYDEF yn hong 


GSBTYP b 
GSDTYP_FIELDS structure eth 
H re peratee Length 


itl pre 
ots 


uns 
LAY Mv ne fill; 
word unsigned; 


PIC bitfield mask; 
LIB bitfield mask; 
OVR bitfield mask; 
REL bitfield mask; 
GBL bittield mask; 
SHR bitfield mask; 
EXE bitfield mask; 
RD bitfield mask; 
WRT bitfield mask; 
tg bitfield mask; 

FLAGS BITS; 


ord pk rte 


NAMLNG byte unsigned; 
constant NAME equals” - prefix SGPS$ tag Ki 
constant NAME equals . 


cter length 3 


end_module S$SGPSDEF; 
module $GSYDEF; 
/t 


Symbol definition 


itions. 


VERLAY un 
te sane Le 


cet i re 
abtep Hite : 
“OVERLAY: 


word nion 4 
BITS structure “HU 


err 


ld mask; 
ld mask; 


o's — er length 0 t 


£38 Ts 
FIL Pets: fix SGPSDEF tag $$; 
d Gabter F 


rade BITS structure fill; 


Pate SGPS$ tag C 


common to definitions, references, and entry 


Fs Sada GSY$ origin FILL_1; 


fix O6e ber tag $$; 


i; 
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/*P-sect alignment 
/*P-sect flags 


/*Position independent 
/*From a shareable image 
/*Overlaid memory allocation 
Pt pe a ren 


/tExecutable 
/*Readable 
/*Writeable 
/*Vector psect 


/tLength of this psect in shr image 
/*Base of this psect in shr image 
/*tLength of p=-sect name 


/*Name field 


/*Type field 


/*Symbol data type 
/*Symbol flags 


/tWeak symbol 
/*Definition 
/*Universal 

/*Relocatable 


1 
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end FLAGS BITS; 
end FLAGS_OVERLAY; 
end GSYDEF; 


end_module SGSYDEF; 
geane SSRFDEF; 
® 
i: Symbol reference (SYMSM_DEF in GSYSW_FLAGS is 0) 


overegate SRFDEF structure ¢ Miee SRF$ origin FILL_1; 
GSDTYP_OVERLAY union fill; 
GSDTYP byte unsigned; 
GSDTYP_FIELDS structure fill; 
START character Length 0 
FILL. 1 pre fill prefix 
end GSOTYP_FIELDS; 
end GSDTYP_OVERLAY; 
DATYP byte unsigned; 
FLAGS word unsigned; 
NAMLNG byte unsigned; 
constant NAME equals . prefix SRF$ tag K; 
constant NAME equals . grerse SRF$ tag C; 
NAME character length 31; 
end SRFDEF; 


end_module SSRFDEF; 
module SSDFDEF; 
S Symbol definition 


bag Fi 
SRFDEF tag $$; 


aggregate SDFDEF structure eres SDF$ origin FILL_1; 
GSDTYP_OVERLAY union fill; 
GSDTYP byte unsigned; 
GSDTYP_FIELDS structure fill; 
ART character Length 0 tag T; 
1b ol Sage prefix SDFDEF tag $$; 


PSINDX byte uns 
"VALUE" ongword unsigned; 


NAME character length 
end SDFDEF; 


end_module $SDFDEF; 


/*Maps over GSYS$B_GSDTYP 


/*Maps over GSY$B_DATYP 
/*Maps over GSY$W_FLAGS 
/tLength of symbol name 


/*Symbol name 


/*Maps over GSY$B_GSDTYP 


/*Maps over GSY$B_DATYP 
/*Maps over GSY$W_FLAGS 
/*Owning psect number 
/*Value of symbo 
/tLength of name 


/*Symbol name 
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ane SEPMDEF ; 
A GSD entry - Entry point definition 


aggregate EPMDEF structure prefix EPM$ origin FILL_1; 
GSDTYP_OVERLAY union fill; 
GSDTYP byte uns ten ed; /*Maps over GSYSB_GSDTYP 
GSDTYP_FIELDS structure AS 
Bred cnerecter Length ag i 
PHEtos: LL A, EPM EF tag $$; 

end Seb RP FIE 

end GSDTYP_OVERLAY; 


DATYP byte “unsigned; /*Maps over GSYSB_DATYP 

FLAGS word unsigned; /*Maps over GSY$W_FLAGS 

PSINDX byte uns gned; /*Maps over SOF$B_ ~PSINDX 

ADDRS, longword unsigned: /*Entry point address, maps over SDFS$L_VALUE 
*MASK’' word unsigne /*Entry coint mask 


NAMLNG byte unsigned: /*tLength of name 
constant NAME equals . prefix EPM$ tag + 
constant NAME equals . seretix EPM$ tag C 
NAME character” Tength’3 

end EPMDEF ; 


end_module SEPMDEF; 

aed SPRODEF ; 

oe GSD entry - Procedure definition 
® 


/*Symbol name 


rer s PRODEF structure prefix PROS origin FILL_1; 
OVERLAY union fill; 
GS SBTYP byte unsigned; /*Maps over GSY$B_GSDTYP 
GSDTYP_FIELDS structure ie 
hed! character length reg J: 
A p FYELDS: fill a Ky PRODEF tag $$; 


end esprie POVERLAY 


DATYP byte yor /*Maps over GSYS$B_DATYP 

FLAGS word unsigned; /*Maps over GSYSW_ FLAC® 

PSINDX byte uns gned; /*Maps over SDF$B”PS’ 

ADDRS, Longword uns igned; /*Entry point address aps over SDFS$L_VALUE 
MASK" word unsigne /tEntry point mask 


NAMLNG byte unsigned; /tLength of name 
/*Symbol name 


See, SPRODEF ; 
module SFMLDEF; 
/t 
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/* Appended to a procegure definition are the formal arguments: 
is FMLS - The fixed part of the formal arguments description 


au ht FMLDEF structure prefix FML$; 
S$ byte unsigned; /*Minimum number of arguments 
MAXARGS b te eunsigned: /*Maximum which include function if procedure is one 
constant E equals . prefix FML$ tag K; 
nat constant a] E equals . prefix FML$ tag C; 
e 


end_module SFMLDEF; 
reese SARGDEF ; 
an ARGS = The argument descriptors 


creas: ent ye bee wo ARGS; 


VERLAY union 
VACETE byte wine Aen /*Validation control byte 
VALCTL_B i. steve ture fill; 

PASSM bitfield Length 2; /*Passing mechanism 


end VALCTL “BITS: 
/* Passing mechanisms 


constant UNKNOWN equals 0 prefix ARG tag $C;/* en a iy de or unknown 
constant ‘VALUE equals 1 orks ARG oe, $C;/* Passed oy ve alue 
constant REF’ equals : “oretin ARG tag $ * Passed by re erence 
constant + hy? equals prefix ARG tag He be Passed by descriptor 

end VALCTL_OVERLAY 

BYTECNT byte unsigned: /*Remaining byte count 


constant SIZE equals . prefix ARG$ tag K 
“i consent SIZE equals . prefix ARG$ tag C: 
e 


end_module SARGDEF ; 
module SSDFWDEF; 


/t 
os Symbol definition with word of psect value 


aggregate SOFWDEF structure prefix SDFW$ origin FILL_1; 
GSDTYP_OVERLAY union fill; 
GSB byte uns ton ed; /*Maps over GSY$B_GSDTYP 
GSDTYP_FIELDS structure fru 
S . sperecter Length + 
na bib PyEtos: fill mK SDFUDEF tag $$; 
GSD TPP F 


end ecpTeP OVERLAY; 
DATYP byte “unsigned; /*Maps over GSY$B_DATYP 
FLAGS word unsigned; /*Maps over GSYSW_FLAGS 
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PSINDX word unsigned; /*Owning psect number 
‘VALUE Longword unsigned; /*Value of symbol 
NAMLNG byte unsigned; /*Length of name 
constant NAME equals . prefix SDFWS tag K; 
constant NAME equals . prerte SDFWS tag C; 
NAME character length 31; 

end SDFWDEF; 


end_module SSDFWDEF; 
ene SEPMWDEF ; 
® 
oe GSD entry - Entry point definition with word of psect value 


/*Symbol name 


aggregate EPMWDEF structure prefix EPMWS origin FILL_1; 
GSDTYP_OVERLAY union fill; 
GSDTYP byte unsigned; /*Maps over GSYSB_GSDTYP 
GSDTYP_FIELDS structure fill; 
START character length 0 tag T; 
FILL. 1 byte fill prefix EPMWDEF tag $$; 
end GSDOTYP_FIELDS; 


DATYP byte unsigned; /*Maps over GSY$B_DATYP 

FLAGS word una seneds /*Maps over GSY$W_ FLAGS 

PSINDX word unsigned; /*Maps over SDFWSQ_PSINDX 

ADDRS, Longword en /*Entry point address, maps over SDFWSL_VALUE 
MASK'’ word unsigned; /tEntry point mask 

NAMLNG byte unsigned; /*tLength of name 


/*Symbol name 
end EPMWDEF ; 


end_module SEPMWDEF ; 
gotete SPROWDEF ; 
® 
. GSD entry - Procedure definition with word of psect value 


aggregate PROWDEF structure prefix PROWS origin FILL_1; 
GSD7YP_OVERLAY union fill; 
GSBTYP byte unsigned; /*Maps over GSY$B_GSDTYP 
GSDTYP_FIELDS structure fill; 
START character length 0 tag T; 
FILL 1 byte fill prefix PROWDEF tag $$; 
end GSDTYP_FIELDS; 
end GSDTYP_OVERLAY; 


DATYP byte unsigned; /*Maps over GSY$B_DATYP 

FLAGS word unsigned; /*Maps over GSY$W FLAGS 

PSINDX word unsigned; /*Maps over SDFWSO_PSINDX 

ADDRS longword yns igned: /tEntry point address, maps over SDFWSL_VALUE 
*MASK"’ word unsigned; /tEntry point mask 
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NAMLNG byte unsigned; 
constant NAME equals . prefix PROWS tag K; 
constant NAME equals . pretve PROWS tag C; 
NAME character Length 31; 

end PROWDEF; 


end_module SPROWDEF ; 
module SIDCDEF; 
. IDC = Random entity ident consistency check 


aggregate IDCDEF structure prefix IDC$; 
GSDTYP arte unsianed; 
FLAGS OVERLAY union fill: 
FLAGS word unsigned; 
FLAGS BITS structure fill; 
BINIDENT bitfield; 
IDMATCH bitfield Length 2; 
ERRSEV bitfield Length 3; 
end FLAGS_BITS; 


constant ( 
LEQ 
EQUAL 
squeis 0 increment 1 prefix IDC tag $C; 
end FLAGS OVERLAY; 
NAMLNG OVERLAY union fill; 
NAMLNG byte unsigned; 
NAMLNG FIELDS structure fill; 


Lt 
FICL_1 byte fill prefix IDCDEF tag $$; 
NAME character length 0 tag T; 


end NAMLNG FIELDS; 
end NAMLNG_OVERLAY; 
end IDCDEF; 
end_module SIDCDEF; 
nodule SENVDEF ; 


~ ENV - Define/reference an environment 


aggregate ENVDEF structure prefix ENVS$; 
GSDTYP byte unsigned; 


4 
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/tLength of name 


/*Symbol name 


/*Type field 

/*F lags 

/*Ident is binary longword rather than ASCIC 
/*Field for ident match control if binary ident 
/*Error severity (default is warning-0) 


/*Match control values 


/tLength of entity name 


/* 

/* Followed by entity name 

/* Followed by 

/* byte of ident length 

* ident string (length = string length) 
or 

/* ident binary value (length = 4) 


/* Followed by byte of Length of name of object 
/* Followed by the object name 


/*Type field 


OBJFMT.SOL;1 


FLAGS 04 peal yon 5 Lbs} 
FCAGS word un 
FUSS eplis S pirveture fill; 


ecreD bittiets mask; 
end FLAGS BITS; 
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/tEnvironment flags 


/*Definition of environment 
/*Nested environment if set 


/tIndex of parent environment 
cere of environment name 
/tEnvironment name 


NAME character igned; 31; 
end ENVDEF; 


end_module SENVDEF ; 

module SLSYDEF; 

: LSY = Module-Local symbol definition 

cS Common to definitions, references, entry points, and procedure definitions 


aggregate LSYDEF structure prefix LSY$ origin FILL_1; 
GSDTYP ped union fill; 
GS6 byte unsigned; /*Type field 
esp TYP FIELDS structure fits 
ST # sperecter Length 0 tag Ti 
Ub ties fill prefix LSY EF tag $$; 


FIL 
end GSDTYP_OV ~ AY; 
DATYP byt 


ned; /*Symbol type 
FLAGS “OVERLAY un union fill; y ye 


FCAGS word unsigned; /*Symbol flags 


nLASS +Y. structure fill; 
field mask; 


/tWeak symbol (not used) 
/*Defined symbol 
/*Universal (not used) 
/*Relocatable 


/tEnvironment index 


ad naa SLSYDEF; 
getule SLSRFDEF; 
pn Module-local Symbol reference (LSYSM_DEF im LSYSW_FLAGS is 0) 


sggregate LSRFDEF structure refix LSRFS origin FILL_1; 
P_OVERLAY union fill; 
TYP byte sane toned: 
GSDTYP_FIELDS structure fill; 


, /*Maps over LSYSB_GSDTYP 
START character length 0 tag T; 
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FILL. 1 byte fill prefix LSRFDEF tag $$; 
end GSOTYP_FIELDS; 
end GSDTYP_OVERLAY; 
DATYP byte unsigned; 
FLAGS word unsigned; 
ENVINDX word unsigned; 
NAMLNG byte unsigned; 
constant NAME equals . prefix LSRF$ tag K; 
constant NAME equals . pretin LSRFS tag C; 
NAME character length 31; 
end LSRFDEF; 


end_module SLSRFDEF; 

eotie SLSDFDEF; 

a Module-local Symbol definition 
® 


aggregate LSDFDEF structure prefix LSDF$ origin FILL_1; 
GSDTYP_OVERLAY union fill; 
GSBTYP byte unsigned; 
GSOTYP_FIELDS structure fill; 
START character Length 0 tag T; 
FILL 1 prte LL prefix LSDFDEF tag $$; 
end GSDTYP_FIELDS; 


end GSDTYP_OVERLAY; 

DATYP byte unsigned; 

FLAGS word unsigned; 
ENVINDX word unsigned; 
PSINDX word unsigned; 
"VALUE" Longword unsigned; 
NAMLNG byte unsigned; 


constant NAME equals . prefix LSDF$ tag K; 
constant NAME equals . prerss LSDF$ tag C; 
NAME character length 31; 


end LSDFDEF; 

end_module S$LSDFDEF; 

gotule SLEPMDEF ; 

GSD entry - Module local entry point definition 


aggregate LEPMDEF structure prefix LEPM$ origin FILL_1; 
GSDTYP_OVERLAY union fill; 
GSBTyP byte unsigned; 
GSDTYP_FIELDS structure fill; 
START character Length 0 tag T; 
FILL_1 byte till prefix LEPMDEF tag $$; 
end GSDTYP_FIELDS; 
end GSDTYP_OVERLAY; 
DATYP byte unsigned; 


/*Maps over LSYSB_DATYP 
/*Maps over LSYS$W_FLAGS 
/*Maps over LSY$W_ENVINDX 
/*Length of symbol name 


/*Symbol name 


/*Maps over LSYS$B_GSDTYP 


/*Maps over LSYS$B_DATYP 

/*Maps over LSYS$W_FLAGS : 
/tEnvironment index symbol defined in 
/*Owning psect number 

/*Value of symbol 

/tLength of name 


/*Symbol name 


/*Maps over LSY$B_GSDTYP 


/*Maps over LSYSB_DATYP 
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FLAGS word unsigned; ponent over LSYS$W_FLAGS 

ENVINDX word unsigned; /tEnvironment ogee symbol defined in 
PSINDX word unsigned; /*Maps over LSDF W_PSINDX 

ADDRS Longword unsigned; /*Entry eet address, maps 

. = /* over LSDFSL_VALUE 

MASK" word unsigned; /tEntry point mask 

NAMLNG byte unsigned; 7eLength of name 


constant NAME equals . prefix LEPM$ tag K; 
constant NAME equals . presia LEPMS tag C; 
NAME character Length 31; 

end LEPMDEF; 

end_module SLEPMDEF; 

aa SLPRODEF ; 


in GSD entry - Module Local Procedure definition 


/*Symbol name 


aggregate LPRODEF structure prefix LPRO$ origin FILL_1; 
GSDTYP_OVERLAY union fill; 
GSDTYP byte unsigned; 
GSDTYP_FIELDS structure fill; 
START character Length 0 tag T; 
FILL 1 byte fill prefix LPRODEF tag $$; 
end GSDTYP_FIELDS; 
end GSDTYP_OVERLAY; 


/*Maps over LSYS$B_GSDTYP 


DATYP byte unsigned; /*Maps over LSYSB_DATYP 

FLAGS word unsigned; /*Maps over LSYSW_FLAGS 

ENVINDX word unsigned; /tEnvironment index prepet defined in 
PSINDX word unsigned; /*Maps over LSDFSW_PSINDX 

ADDRS longword unsigned; /*Entry point address, maps 

i : /* over LSDFS$L_VALUE 

MASK’ word unsigned; perntty point mask 

NAMLNG byte unsigned; /tLength of name 


constant NAME equals . prefix LPRO$ tag K; 
constant NAME equals . eretsa LPRO$ tag C; 
NAME character length 31; 

end LPRODEF ; 

end_module SLPRODEF ; 

module $STIRDEF; 

/* 


> Text, information and relocation record (TIR) 
® 


/*Symbol name 


aggregate TIRDEF union prefix TIRS$; 
RECTYP byte unsigned; /*Record type (OBJSC_TIR) 


/* Define relocation commands 
constant STA_GBL equals 0 prefix TIR tag $C; /*Stack global symbol value 
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constant STA_SB equals 1 prefix TIR tag $C; /*Stack signed byte 

constant STA_SW equals § prefix TIR tag $C; /*Stack signed word 

constant STA_LW equals prefix TIR tag $C; /*Stack longword 

constant STA_PB equals 4 prefix TIR tag $C; /*Stack psect base plus byte offset 
constant STA_PW equals 5 prefix TIR tag $C; /*Stack psect base plus word offset 
constant STA_PL equals $ prefix TIR tag $C; /*Stack psect base plus longword offset 
constant STA_UB equals prefix TIR tag $C; /*Stack unsigned byte 

constant STA_UW equals 8 prefix TIR tag $C; /*Stack unsigned word 

constant STA_BFI equals prefix TIR tag $C; /*Stack byte from image 

constant STA_WFI equals 19 prefix TIR tag $C; /*Stack word from image 

constant STA_LFI equals 11 prefix TIR tag $C; /*Stack longword from image 

constant STA_EPM equals 1 prefix TIR tag $C; /*Stack entry point mask 

constant STA_CKARG equals 15 prefix TIR tag $C; /*Stack result of argument checking (true or false) 
constant STA_WPB equals 14 prefix TIR tag $C; /*Stack psect base plus byte offset -- word psect number 
constant STA_WPW equals 15 prefix TIR tag $C; /*Stack psect base plus word offset -- word psect number 
constant STA_WPL equals 1 prefix TIR tag $C; /*Stack psect base ‘eo longword offset -- word of psect number 
constant STA_LSY equals 17 prefix TIR tag $C; /*Stack local symbol value 

constant STA_LIT equals ig prefix TIR tag $C; /*Stack Literal 

constant STA_LEPM equals 19 prefix TIR tag $C; /*Stack local symbol entry point mask 
constant MAXSTACOD equals 19 prefix TIR tag $C; /*Last assigned code of stack group 
constant MINSTOCOD equals 8 prefix TIR tag $C; /*First assigned store command code 
constant STO_SB equals prefix TIR tag $C; /*Store signed byte 

constant STO_SW equals 21 prefix TIR tag $C; /*Store signed word 

constant STO_ equals ¢ prefix TIR tag $C; /*Store longword 

constant STO_BD equals prefix TIR tag $C; /*Store byte displaced 

constant STO_WD equals 24 prefix TIR tag $C; /*Store word displaced 

constant STO_LD equals 25 prefix TIR tag $C; /*Store longword erepreced 

constant STO_LI equals 8 prefix TIR tag $C; /*Store short Litera 

constant STO_PIDR equals prefix TIR tag $C; /*Store pos. indep. data reference 
constant STO_PICR equals 3 prefix TIR tag $C; /*Store pos. indep. code reference 
constant STO_RSB equals prefix TIR tag $C; /*Store repeated signed byte 

constant STO_RSW equals 50 prefix TIR tag $C; /*Store repeated signed word 

constant STO_RL equals 31 prefix TIR tag $C; /*Store repeated lLongword 

constant STO_VPS equals § prefix TIR tag $C; /*Store arbitrary field 

constant STO_USB equals prefix TIR tag $C; /*Store unsigned byte 

constant STO_USW equals 54 prefix TIR tag $C; /*Store unsigned word 

constant STO_RUB equals 35 prefix TIR tag $C; /*Store repeated unsigned byte 

constant STO_RUW equals § prefix TIR tag $C; /*Store repeated unsigned word 

constant ST0_B equals prefix TIR tag $C; /*Store byte 

constant STO_W equals 8 prefix TIR tag $C; /*Store word 

constant STO_RB equals prefix TIR tag $C; /*Store repeated byte 

constant STO_RW equals 40 prefix TIR tag $C; /*Store repeated word 

constant STO_RIVB equals 41 prefix TIR tag $C; /*Store repeated immediate variable bytes 
constant STO-PIRR equals 42 prefix TIR tag $C; /*Store pos. indep. relative reference 
constant MAXSTOCOD equals 42 prefix TIR tag $C; /*Last assigned store command code 
constant ol a ae oquers arene tie tag +3 te hl assigned operator command code 
constant equals prefix ag $C; o-op 

constant OPR—ADD equals refix TIR tag $C; /*Add 

constant OPR~SUB oquals ¢ Drevin TIR ton $C; /*Subtract 

constant OPR-MUL equals prefix TIR tag $C; penulsioly 

constant OPR-DIV equals 54 prefix TIR tag $C; /*Divide 

constant OPR_AND equals 55 prefix TIR tag $C; /*Logical AND 

constant OPR—IOR equals § prefix TIR tag $C; /*Logical inclusive OR 

constant OPR-EOR equals prefix TIR tag $C; /*Logical exclusive OR 

constant OPR_NEG equals 3 prefix TIR tag $C; /*Negate 

constant OPR_COM equals prefix TIR tag $C; /*Complement 


F 
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constant OPR_INSV equals prefix TIR tag $C; /*Insert bit shite 

constant OPR_ASH equals prefix TIR tag $C; /*Ar ponette 98 

constant OPR_USH equals prefix TIR tag $C; veane en gnee shit 

constant OPR_ROT equals prefix TIR tag $C; 

constant OPR_SEL equals 64 prefix TIR tag $C; jokelen one of three longwords on top of stack 
constant OPR_REDEF equals 65 prefix TIR tag $C; /*Redefine Fhis S syseet after pass 2 
constant OPR-DFLIT equals prefix TIR tag $C; /*Define a Lit 

constant MAXOPRCOD equals prefix TIR tag +E /tLast assi Me operator command code 
constant MINCTLCOD equals prefix TIR tag $C; /*First assigned control command code 
constant CTL_SETRB equals prefix TIR tag $C; /*Set relocation base 

constant CTL_AUGRB equals prefix TIR tag $C; /*Augment relocation base 

constant CTL_DFLOC equals § prefix TIR tag $C; /*Define debug soget ion 

constant CTL_STLOC equals prefix TIR tag $C; /*Set debug locat 

constant CTL_STKDL equals 84 prefix TIR tag $C; /*Stack debug Location 

constant MAXCTLCOD equals 84 prefix TIR tag $C; . /*Last assigned control command code 


end TIRDEF; 
end_module STIRDEF; 
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